home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / check_1g / y2k.frm (.txt) next >
Visual Basic Form  |  1999-08-21  |  3KB  |  108 lines
  1. VERSION 5.00
  2. Begin VB.Form frmy2k 
  3.    BackColor       =   &H00FF00FF&
  4.    Caption         =   "Y2K Countdown!!"
  5.    ClientHeight    =   2835
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4950
  9.    Icon            =   "y2k.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2835
  12.    ScaleWidth      =   4950
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.Timer tmry2k 
  15.       Interval        =   1
  16.       Left            =   0
  17.       Top             =   2400
  18.    End
  19.    Begin VB.Image imgy2k 
  20.       Height          =   1920
  21.       Left            =   0
  22.       Picture         =   "y2k.frx":030A
  23.       Stretch         =   -1  'True
  24.       Top             =   1440
  25.       Width           =   4920
  26.    End
  27.    Begin VB.Label lblmdy 
  28.       Alignment       =   2  'Center
  29.       BackColor       =   &H00FF00FF&
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   18
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       ForeColor       =   &H8000000E&
  40.       Height          =   375
  41.       Left            =   0
  42.       TabIndex        =   1
  43.       Top             =   0
  44.       Width           =   4935
  45.    End
  46.    Begin VB.Label lbly2k 
  47.       Alignment       =   2  'Center
  48.       BackColor       =   &H00FF00FF&
  49.       BeginProperty Font 
  50.          Name            =   "Arial Black"
  51.          Size            =   18
  52.          Charset         =   0
  53.          Weight          =   700
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H0000FFFF&
  59.       Height          =   1575
  60.       Left            =   0
  61.       TabIndex        =   0
  62.       Top             =   480
  63.       Width           =   4935
  64.    End
  65. Attribute VB_Name = "frmy2k"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Private Sub tmry2k_Timer()
  71.     Dim mo As Integer
  72.     Dim mi As Integer
  73.     Dim ho As Integer
  74.     Dim se As Integer
  75.     Dim da As Integer
  76.     mo = 12 - Month(Now)
  77.     ho = 24 - Hour(Now)
  78.     se = 60 - Second(Now)
  79.     If Minute(Now) = 60 Then
  80.         mi = 0
  81.     End If
  82.     If Minute(Now) <> 60 Then
  83.         mi = 60 - Minute(Now)
  84.     End If
  85.     If Month(Now) = 8 Then
  86.         da = 31 - Day(Now)
  87.     End If
  88.     If Month(Now) = 9 Then
  89.         da = 30 - Day(Now)
  90.     End If
  91.     If Month(Now) = 10 Then
  92.         da = 31 - Day(Now)
  93.     End If
  94.     If Month(Now) = 11 Then
  95.         da = 30 - Day(Now)
  96.     End If
  97.     If Month(Now) = 12 Then
  98.         da = 31 - Day(Now)
  99.     End If
  100.     If ho <> 1 Then
  101.         lbly2k = mo & " months " & ho & " hours " & da & " days " & mi & " minutes " & se & " seconds until "
  102.     End If
  103.     If ho = 1 Then
  104.         lbly2k = mo & " months " & ho & " hour " & da & " days " & mi & " minutes " & se & " seconds until "
  105.     End If
  106.     lblmdy = Month(Now) & "/" & Day(Now) & "/" & Year(Now)
  107. End Sub
  108.